home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G27F / G27_ODAE.Dxr / 00048.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.3 KB  |  117 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 13 to mycursor
  8.   set the cursor of sprite 14 to mycursor
  9.   set the cursor of sprite 15 to mycursor
  10.   set the cursor of sprite 16 to mycursor
  11.   set the cursor of sprite 17 to mycursor
  12.   set the cursor of sprite 18 to mycursor
  13.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5"]
  14.   set volset to the soundLevel
  15.   if the soundEnabled = 0 then
  16.     set the soundEnabled to 1
  17.   end if
  18. end
  19.  
  20. on donext
  21.   if (g_no + 1) = 6 then
  22.     set g_no to 0
  23.   end if
  24.   go(getAt(jumplistkey, g_no + 1))
  25. end
  26.  
  27. on doback
  28.   if (g_no - 1) = 0 then
  29.     set g_no to 6
  30.   end if
  31.   go(getAt(jumplistkey, g_no - 1))
  32. end
  33.  
  34. on doexit
  35.   sound stop 1
  36.   go("M1", "@::JMACMENU")
  37. end
  38.  
  39. on crtopen
  40.   puppetSprite(6, 1)
  41.   repeat while the stillDown
  42.     set the memberNum of sprite 6 to 11
  43.     updateStage()
  44.   end repeat
  45.   set the memberNum of sprite 6 to 9
  46.   updateStage()
  47.   puppetSprite(6, 0)
  48. end
  49.  
  50. on crtclose
  51.   puppetSprite(7, 1)
  52.   repeat while the stillDown
  53.     set the memberNum of sprite 7 to 12
  54.     updateStage()
  55.   end repeat
  56.   set the memberNum of sprite 7 to 10
  57.   updateStage()
  58.   puppetSprite(7, 0)
  59. end
  60.  
  61. on crtback
  62.   puppetSprite(21, 1)
  63.   repeat while the stillDown
  64.     set the memberNum of sprite 21 to 22
  65.     updateStage()
  66.   end repeat
  67.   set the memberNum of sprite 21 to 21
  68.   updateStage()
  69.   puppetSprite(21, 0)
  70. end
  71.  
  72. on crtnext
  73.   puppetSprite(20, 1)
  74.   repeat while the stillDown
  75.     set the memberNum of sprite 20 to 20
  76.     updateStage()
  77.   end repeat
  78.   set the memberNum of sprite 20 to 19
  79.   updateStage()
  80.   puppetSprite(20, 0)
  81. end
  82.  
  83. on crtclose2
  84.   puppetSprite(22, 1)
  85.   repeat while the stillDown
  86.     set the memberNum of sprite 22 to 24
  87.     updateStage()
  88.   end repeat
  89.   set the memberNum of sprite 22 to 23
  90.   updateStage()
  91.   puppetSprite(22, 0)
  92.   puppetSprite(1, 0)
  93. end
  94.  
  95. on crtzoomin
  96.   puppetSprite(23, 1)
  97.   repeat while the stillDown
  98.     set the memberNum of sprite 23 to 30
  99.     updateStage()
  100.   end repeat
  101.   set the memberNum of sprite 23 to 29
  102.   updateStage()
  103.   puppetSprite(23, 0)
  104. end
  105.  
  106. on crtzoomout
  107.   puppetSprite(23, 1)
  108.   repeat while the stillDown
  109.     set the memberNum of sprite 23 to 32
  110.     updateStage()
  111.   end repeat
  112.   set the memberNum of sprite 23 to 31
  113.   updateStage()
  114.   puppetSprite(23, 0)
  115.   puppetSprite(1, 0)
  116. end
  117.